#!/usr/bin/perl
# IBM_PROLOG_BEGIN_TAG 
# This is an automatically generated prolog. 
#  
#  
#  
# Licensed Materials - Property of IBM 
#  
# (C) COPYRIGHT International Business Machines Corp. 2001,2002 
# All Rights Reserved 
#  
# US Government Users Restricted Rights - Use, duplication or 
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp. 
#  
# IBM_PROLOG_END_TAG 

if ( ($#ARGV <0) || (($#ARGV+1)>=4 ) )
{
  print <<FNUSAGETEXT;
usage : removermcacl <Group> <Machine Name> <permissions>

FNUSAGETEXT
exit 1;
}

$groupname=$ARGV[0];
$NodeName=$ARGV[1];
$Nodeperm=$ARGV[2];
$cnt=1;

open(TEMP,">/tmp/temp_acls") || die print "Can't create temp_acls file :$!\n";
$tempfilehandle=select(TEMP);
open(ACLS,"/var/ct/cfg/ctrmc.acls") || die print "Can't open ctrmc.acls file :$!\n";
$grpflg=0;
while(<ACLS>)
{
  if (/^IBM/)
  {
     if (/^$groupname/)
     {
       $grpflg=1
     }
     else
     {
        $grpflg=0
     } 
  }
  if ($grpflg==1)
  {
    if (/$NodeName/)
    {
      $cnt=$cnt-1;
    }
    else
    {
      print;
      $cnt=$cnt+1;
    } 
  }
  else
  {
    print;
  }
}
close ACLS;
select($tempfilehandle);
close TEMP;
system("mv /tmp/temp_acls /var/ct/cfg/ctrmc.acls"); 
 
if  ($cnt <= 1)
{
open(TEMP,">/tmp/temp_acls") || die print "Can't create temp_acls file :$!\n";
$tempfilehandle=select(TEMP);
open(ACLS,"/var/ct/cfg/ctrmc.acls") || die print "Can't open ctrmc.acls file :$!\n";
   while(<ACLS>)
   {
     if (/^IBM/)
     {
        if (/^$groupname/)
        {
        }
        else
        {
           print;
        }
     }
     else
     {
       print;
     }
   }
close ACLS;
select($tempfilehandle);
close TEMP;
system("mv /tmp/temp_acls /var/ct/cfg/ctrmc.acls");
}
 
